home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / hi-res mover (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  112 lines
  1. 5 poke840,0:gosub5100:poke53280,.:poke53281,.:print"[147][158]":print"              hi-res converter":print"         by shawn ort       (c)1986  ":printtab(9)"d [154]- directory":printtab(9)"s [154]- send disk command":printtab(9)"c [154]- convert screen":printtab(9)"k [154]- custom screen convert":printtab(9)"q [154]- quit
  2. 30 [153][163]9)"contpress dcont, scont, ccont, kcont, or qcont.":[158]52300:[151]198,.
  3. 90 [161]a$:[139]a$[178]""[167]90
  4. 91 [139]a$[178]"d"[167]1000
  5. 92 [139]a$[178]"s"[167]100
  6. 93 [139]a$[178]"c"[167]2050
  7. 94 [139]a$[178]"k"[167]2230
  8. 95 [139]a$[178]"q"[167]150
  9. 99 [137]90
  10. 100 [153]"enter disk command:":[153]"->";:le[178]36:[141]60500:a$[178]b$:[159]15,8,15,a$:[160]15:[159]15,8,15:[132]15,a$,b$,c$,d$:[160]15:[153]"def"a$" "b$" "c$" "d$:[153]"         contpress space to continue.
  11. 145 ifpeek(203)<>60then145
  12. 146 run
  13. 150 print"[158]":printspc(8);"                       [146]":printspc(8);"  return to main menu  [146]":printspc(8);"                       [146]":printspc(8);"     are you sure?     [146]":printspc(8);"                       [146]
  14. 170 [161]a$:[139]a$[178]""[167]170
  15. 171 [139]a$[179][177]"y"[167][138]
  16. 175 [153]"loadstoploading main menu":[153]"":[159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15:[139]er[179][177]63[167][128]
  17. 200 [147]"hello connect",8
  18. 1000 [159]15,8,15,"i0":[160]15:[151]49153,0:bf[178]0:[159]1,8,2,"$":[158]52423:[153]"loadcont                                        wait";:[153]" file name         file type  file size wait";:[153]"                                        waitopen
  19. 1010 p=peek(49152)-1:ifpeek(49153)=2then1031
  20. 1016 ifp=1thent$="seq":goto1021
  21. 1017 ifp=2thent$="prg":goto1021
  22. 1018 ifp=3thent$="usr":goto1021
  23. 1019 ifp=4thent$="rel":goto1021
  24. 1020 sys52438:goto1010
  25. 1021 get#1,a$:get#1,a$:ifpeek(49153)=2then1031
  26. 1023 sys52464:get#1,a$:a$=a$+chr$(0):t=asc(a$):bf=bf+t:a$=str$(t):print"   ";t$;spc(11-len(a$));a$:geta$:ifa$=""then1029
  27. 1027 ifa$="q"then1033
  28. 1028 geta$:ifa$=""then1028
  29. 1029 sys52438:goto1010
  30. 1031 bu=bf:bf=664-bu:print:print""bu;"[154]blocks used  ";bf;"[154]blocks free
  31. 1033 [153]:[153]"        press space to continue":[160]1:[146]197,32:[138]
  32. 1095 [151]646,0:[160]1:[160]2:[160]15:[158]52335:[158]52370:[137]90
  33. 2050 [153]"sys";[166]10);"                      wait":[153][166]10);" convert which screen wait":[153][166]10);"                      wait":[153][166]10);"  1. doodle           wait":[153][166]10);"  2. 2000 hex         wait":[153][166]10);"  3. 6000 hex         wait":[153][166]10);"  4. print shop       wait
  34. 2077 printspc(10);"  5. koala pad        [146]":printspc(10);"                      [146]":printspc(10);"                      [146]
  35. 2080 [161]a$:[139]a$[178]""[167]2080
  36. 2081 [139]a$[178]"1"[167]sc$[178]"doodle    ":ss$[178]"dd":[137]2090
  37. 2082 [139]a$[178]"2"[167]sc$[178]"2000 hex  ":ss$[178]"lx":[137]2090
  38. 2083 [139]a$[178]"3"[167]sc$[178]"6000 hex  ":ss$[178]"hx":[137]2090
  39. 2084 [139]a$[178]"4"[167]sc$[178]"print shop":ss$[178]"ps":[137]2090
  40. 2086 [139]a$[178]"5"[167]sc$[178]"koala pad ":ss$[178]"kp":[137]2090
  41. 2088 [139]a$[178][199](13)[167]1095
  42. 2089 [137]2080
  43. 2090 [153]"sys";[166]10);"                      wait":[153][166]10);" convert ";sc$;"   wait":[153][166]10);" screen to            wait":[153][166]10);"                      wait":[153][166]10);"  1. doodle           wait":[153][166]10);"  2. 2000 hex         wait":[153][166]10);"  3. 6000 hex         wait
  44. 2097 printspc(10);"  4. print shop       [146]":printspc(10);"  5. koala pad        [146]":printspc(10);"                      [146]
  45. 2100 [161]a$:[139]a$[178]""[167]2100
  46. 2101 [139]a$[178]"1"[175]ss$[179][177]"dd"[167]2160
  47. 2102 [139]a$[178]"2"[175]ss$[179][177]"lx"[167]2160
  48. 2103 [139]a$[178]"3"[175]ss$[179][177]"hx"[167]2160
  49. 2104 [139]a$[178]"4"[175]ss$[179][177]"ps"[167]2160
  50. 2106 [139]a$[178]"5"[175]ss$[179][177]"kp"[167]2160
  51. 2107 [139]a$[178][199](13)[167]2050
  52. 2108 [137]2100
  53. 2110 [153]"loadcont      convert screen instructions":[153]"        insert source disk and":[153]"   enter name of file to be converted":[153]"-->";:le[178]16:[141]60500:sf$[178]b$:[139]sf$[178]""[167]2110
  54. 2117 [141]6000:[153]"please wait...":[151]147,0:[158]57812sf$,8,1:[158]62631:[141]5100:[142]
  55. 2130 [139]ss$[178]"lx"[167][151]52401,32:[151]52400,0
  56. 2142 [139]ss$[178]"hx"[176]ss$[178]"kp"[176]ss$[178]"dd"[167][151]52401,96:[151]52400,0
  57. 2143 [139]ss$[178]"ps"[167][151]52401,64:[151]52400,0
  58. 2146 [139]a$[178]"1"[176]a$[178]"3"[176]a$[178]"5"[167][151]52404,96:[151]52403,0
  59. 2147 [139]a$[178]"2"[167][151]52404,32:[151]52403,0
  60. 2149 [139]a$[178]"4"[167][151]52404,64:[151]52403,0
  61. 2155 [142]
  62. 2160 p[178][198](a$):[151]840,p:[141]2130:[151]828,[194](52404):[151]829,[194](52403):[141]2110:[158]52395:[151]52404,[194](828):[151]52403,[194](829)
  63. 2180 [153]"load1. insert target disk":[153]"2. enter name for converted file":le[178]15:[141]60500:sf$[178]b$:[133]sf$:[139]sf$[178]""[167]2180
  64. 2187 [139][194](840)[178]49[167]sf$[178]"dd"[170]sf$
  65. 2188 [139][194](840)[178]53[167]ss$[178]"kp":[141]6000
  66. 2189 [153]"please wait...":[158]57812sf$,8,1:p[178][194](840):a$[178][199](p):[139]a$[178]"1"[167]5000
  67. 2192 [139]a$[178]"2"[167]5005
  68. 2193 [139]a$[178]"3"[167]5010
  69. 2194 [139]a$[178]"4"[167]5015
  70. 2196 [139]a$[178]"5"[167]5025
  71. 2210 [158]62957:[141]5100:[153]" done!!  press any key to continue
  72. 2220 geta$:ifa$=""then2220
  73. 2225 run
  74. 2230 print"[147][158]             custom convert
  75. 2237 [153]"contenter start of source hi-res in decimal":[153]"-->";:le[178]5:[141]60500:ad[178][197](b$):[139]ad[179]8192[176]ad[177]57344[167][153]"bad location":[137]2237
  76. 2242 [141]3000:[151]52401,l:[151]52400,x
  77. 2265 [153]"contenter address to move source hi-res to":[153]"-->";:le[178]5:[141]60500:ad[178][197](b$):[139]ad[179]8192[176]ad[177]57344[167][153]"bad location":[137]2265
  78. 2280 [141]3000:[151]52404,l:[151]52403,x:[151]828,l:[151]829,x:[141]2110:[151]52404,[194](828):[151]52403,[194](829)
  79. 2315 [153]"loaddo you want to fill any locations?
  80. 2316 geta$:ifa$<>"y"anda$<>"n"then2316
  81. 2318 ifa$="n"then2345
  82. 2319 ifa$<>"y"thenprint"[145]";:goto2315
  83. 2320 print"enter starting address";:le=5:gosub60500:sa=val(b$):print"enter ending address";:le=5:gosub60500:ea=val(b$):print"fill with what value";:le=3:gosub60500:v=val(b$):forx=satoea:pokex,v:next
  84. 2340 print"fill more? (y/n)";:le=1:gosub60500:a$=b$:ifa$="n"then2345
  85. 2342 ifa$="y"thenprint"[147]":goto2320
  86. 2343 print"[145]";:goto2340
  87. 2345 print"[147]enter starting address for save":le=5:gosub60500:sa=val(b$):print"enter ending address for save":le=5:gosub60500:ea=val(b$):ad=sa:gosub3000:poke193,x:poke194,l:ad=ea:poke174,x:poke175,l:goto2180
  88. 3000 l=int(ad/256):x=ad-(l*256):return
  89. 5000 forx=23552to24551:pokex,1:next:poke193,0:poke194,92:poke174,64:poke175,127:goto2210
  90. 5005 poke193,0:poke194,32:poke174,0:poke175,64:goto2210
  91. 5010 poke193,0:poke194,96:poke174,0:poke175,128:goto2210
  92. 5015 poke193,0:poke194,64:poke174,63:poke175,95:goto2210
  93. 5025 forx=32576to34575:pokex,1:next:poke193,0:poke194,96:poke174,17:poke175,135:goto2210
  94. 5100 close15:open15,8,15:input#15,a,a$,b,c:close15:ifa$="ok"thenreturn
  95. 5115 print"[147]               [150]disk error!":print"         ";a;a$;b;c:print"        [154]press any key to continue       
  96. 5130 [161]a$:[139]a$[178]""[167]5130
  97. 5135 [138]
  98. 6000 [139]ss$[178]"dd"[167]6100
  99. 6010 [139]ss$[178]"kp"[167]6200
  100. 6015 [142]
  101. 6100 sf$[178]"dd"[170]sf$:[142]
  102. 6200 sf$[178][199](129)[170]sf$:[139][195](sf$)[178]15[167][142]
  103. 6210 [129]x[178][195](sf$)[164]14:sf$[178]sf$[170]" ":[130]:[142]
  104. 60500 [153]"to";:b$[178]"":[129]a[178]1[164]le[170]1
  105. 60510 [161]a$:[139]a$[178]""[167]60510
  106. 60520 [139]a$[178][199](13)[167][153]"cmd ":[142]
  107. 60530 [139]a$[178][199](20)[175](a[177]1)[167][153]"cmdcmd  cmdcmdto";:a[178]a[171]1:b$[178][200](b$,a[171]1):[137]60510
  108. 60540 [139]a[178]le[170]1[167]60510
  109. 60550 [139](a$[177][178]" ")[175](a$[179][178]"z")[167]60570
  110. 60560 [137]60510
  111. 60570 [153]"cmd"a$;:[151]212,.:[153]"to";:b$[178]b$[170]a$:[130]
  112.